home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / fse_332.zip / INSTALL.DO < prev    next >
Text File  |  1991-03-16  |  30KB  |  1,463 lines

  1. ;
  2. ; ╔═════════════════════════════╗
  3. ; ║  Mycroft Door Installation  ║
  4. ; ║    By: Michael W. Bayley    ║
  5. ; ║         Mar 03, 1989        ║
  6. ; ╚═════════════════════════════╝
  7.  
  8.  
  9. ;
  10. ; ╔══════════════════╗
  11. ; ║  Variable Usage  ║
  12. ; ╚══════════════════╝
  13. ;┌───────────────────────────────────────────────────────────────────────────┐
  14. ;│      String Variables                    Numeric Variables                │
  15. ;├───────────────────────────────────────────────────────────────────────────┤
  16. ;│  %0  General String Input            #0  General Numeric Input            │
  17. ;│  %1  DeArc program Name              #1  Work variable                    │
  18. ;│  %2  Work variable                   #2  Work variable                    │
  19. ;│  %3  Work variable                   #3  Work variable                    │
  20. ;│  %4  Work variable                   #4  Work variable                    │
  21. ;│  %5  Bulletin #1 Drive & Path        #5  Max Session Time                 │
  22. ;│  %6  Bulletin #2 Drive & Path        #6                                   │
  23. ;│  %7  Paging Time Start               #7                                   │
  24. ;│  %8  Paging Time Stop                #8                                   │
  25. ;│  %9                                  #9                                   │
  26. ;│ %10  BBS Name                       #10  Number of BBS Nodes              │
  27. ;│ %11  SysOp Name                     #11                                   │
  28. ;│ %12  BBS Type                       #12  BBS Type ID                      │
  29. ;│ %13  BBS Tag                        #13                                   │
  30. ;│ %14  Monitor Drive & Path           #14                                   │
  31. ;│ %15  Batch Filename                 #15  Install/Update Flag              │
  32. ;│ %16  Door Drive                     #16                                   │
  33. ;│ %17  Door Path                      #17                                   │
  34. ;│ %18  Docs Drive & Path              #18                                   │
  35. ;│ %19                                 #19                                   │
  36. ;│ %20  Node 1 BBS Drive               #20  Node 1 BBS Comm Port #           │
  37. ;│ %21  Node 2 BBS Drive               #21  Node 2 BBS Comm Port #           │
  38. ;│ %22  Node 3 BBS Drive               #22  Node 3 BBS Comm Port #           │
  39. ;│ %23  Node 4 BBS Drive               #23  Node 4 BBS Comm Port #           │
  40. ;│ %24                                 #24                                   │
  41. ;│ %25  Node 1 BBS Path                #25                                   │
  42. ;│ %26  Node 2 BBS Path                #26                                   │
  43. ;│ %27  Node 3 BBS Path                #27                                   │
  44. ;│ %28  Node 4 BBS Path                #28                                   │
  45. ;│ %29                                 #29                                   │
  46. ;│ %30  Editor Login                   #30                                   │
  47. ;│ %31  Editor Password                #31                                   │
  48. ;└───────────────────────────────────────────────────────────────────────────┘
  49.  
  50.  
  51. ;
  52. ; ╔════════════════════════╗
  53. ; ║  Initialize Variables  ║
  54. ; ╚════════════════════════╝
  55. ;
  56. $SET %14 "<not in use>"
  57. $SET %20 ""
  58. $SET %21 ""
  59. $SET %22 ""
  60. $SET %23 ""
  61. $SET %25 "<not in use>"
  62. $SET %26 "<not in use>"
  63. $SET %27 "<not in use>"
  64. $SET %28 "<not in use>"
  65.  
  66. $SET #20 0
  67. $SET #21 0
  68. $SET #22 0
  69. $SET #23 0
  70.  
  71.  
  72.  
  73.  
  74.  
  75. ;
  76. ; ╔══════════════════╗
  77. ; ║  Signon Screens  ║
  78. ; ╚══════════════════╝
  79. ;
  80. CLS
  81. $MSG
  82. $MSG
  83. $MSG "  The Fictitious Stock Exchange Installation Procedure "
  84. $MSG "  By Michael W. Bayley                  "
  85. $MSG "  Mycroft Systems (408)927-0105         "
  86. $MSG "  Version 3.32  Sep 25, 1990            "
  87. $MSG
  88. $MSG
  89. $MSG "  This program is used to install/update The Fictitious Stock Exchange "
  90. $MSG "  on your system.  It is intended to simplify bringing up the door by  "
  91. $MSG "  relieving you of the task of reading all the SysOps documentation    "
  92. $MSG "  and having to build the .BAT files and configuration files.  It is   "
  93. $MSG "  still recommended however that you do read the SysOps documentation. "
  94. $MSG
  95. $MSG "  The following files must be in this directory:                       "
  96. $MSG
  97. $MSG "      ■ INSTALL.BAT                                                    "
  98. $MSG "      ■ INSTALL.DO                                                     "
  99. $MSG "      ■ MARKET-D.ZIP                                                   "
  100. $MSG "      ■ MARKET-X.ZIP                                                   "
  101. $MSG
  102. $INP %0 "  Press [ENTER] to continue..."
  103.  
  104. CLS
  105. $MSG
  106. $MSG
  107. $MSG "  This program will perform the following functions:                   "
  108. $MSG
  109. $MSG "      ■ UnZip all SysOp and User documentaton                          "
  110. $MSG "      ■ Unzip all door program files                                   "
  111. $MSG "      ■ Provide the user access to the documentation                   "
  112. $MSG "      ■ Build the node id file (NODES.BBS)                             "
  113. $MSG "      ■ Build door .BAT file                                           "
  114. $MSG "      ■ Build any configuration files                                  "
  115. $MSG "      ■ Run any required program initialization                        "
  116. $MSG
  117. $MSG "  After the installation is complete, the door should be able to be    "
  118. $MSG "  run after you have made any required changes to add the door to      "
  119. $MSG "  your BBS door list.                                                  "
  120. $MSG
  121. $MSG "  If you are running a BBS that is not supported by this door, you     "
  122. $MSG "  will need to use a BBS conversion program and make changes to the    "
  123. $MSG "  .BAT files as required.                                              "
  124. $MSG
  125. $MSG "  Follow the instructions and answer each question carefully.  Typos   "
  126. $MSG "  are the main cause of the door not being setup correctly.            "
  127. $MSG
  128.  
  129. $:VALID
  130. $INP %0 "  Enter [I] to install, [U] to update, or [Q] to quit: "
  131. $IF %0 = "I" INSTALL
  132. $IF %0 = "i" INSTALL
  133. $IF %0 = "U" UPDATE
  134. $IF %0 = "u" UPDATE
  135. $IF %0 = "Q" ABORT
  136. $IF %0 = "q" ABORT
  137. $GOTO VALID
  138.  
  139. $:ABORT
  140. $MSG
  141. $MSG "  Process aborted..."
  142. $MSG
  143. $GOTO DONE
  144.  
  145.  
  146.  
  147.  
  148.  
  149. ;
  150. ; ╔═════════════════╗
  151. ; ║  Get All Input  ║
  152. ; ╚═════════════════╝
  153. ;
  154. $:INSTALL
  155. $SET #15 1
  156. $GOTO START
  157. ;
  158. $:UPDATE
  159. $SET #15 0
  160. ;
  161. $:START
  162. $GOSUB BBS_NAME
  163. $GOSUB SYSOP
  164. $GOSUB LOGIN
  165. $GOSUB PASSWORD
  166. $GOSUB BBS_TYPE
  167.  
  168. $IF #12 < 3 NO_MON
  169. $IF #12 > 4 NO_MON
  170. $GOSUB MON_PATH
  171.  
  172. $:NO_MON
  173. $GOSUB NODES
  174.  
  175. $SET #30 1
  176. $SET #1 #30
  177. $GOSUB BBS_PATH
  178. $SET %20 %2
  179. $SET %25 %3
  180. $SET #1 #30
  181. $GOSUB BBS_COMM
  182. $SET #20 #1
  183. $ADD #30 1
  184.  
  185. $IF #30 > #10 LPEND
  186. $SET #1 #30
  187. $GOSUB BBS_PATH
  188. $SET %21 %2
  189. $SET %26 %3
  190. $SET #1 #30
  191. $GOSUB BBS_COMM
  192. $SET #21 #1
  193. $ADD #30 1
  194.  
  195. $IF #30 > #10 LPEND
  196. $SET #1 #30
  197. $GOSUB BBS_PATH
  198. $SET %22 %2
  199. $SET %27 %3
  200. $SET #1 #30
  201. $GOSUB BBS_COMM
  202. $SET #22 #1
  203. $ADD #30 1
  204.  
  205. $IF #30 > #10 LPEND
  206. $SET #1 #30
  207. $GOSUB BBS_PATH
  208. $SET %23 %2
  209. $SET %28 %3
  210. $SET #1 #30
  211. $GOSUB BBS_COMM
  212. $SET #23 #1
  213.  
  214. $:LPEND
  215.  
  216. $GOSUB DOORPATH
  217. $GOSUB DOCSPATH
  218. $GOSUB BAT_NAME
  219.  
  220. $SET %2 "  │      Top Ten Tycoons List     │"
  221. $GOSUB BUL_NAME
  222. $SET %5 %2
  223.  
  224.  
  225.  
  226.  
  227.  
  228. ;
  229. ; ╔═════════════════════╗
  230. ; ║  Main Control Menu  ║
  231. ; ╚═════════════════════╝
  232. ;
  233. $:MENU
  234. CLS
  235. $MSG
  236. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  237. $MSG "  │        T H E   F I C T I T I O U S   S T O C K   E X C H A N G E         │"
  238. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  239. $SET %2 "        [1]  BBS Name                 : "
  240. $CAT %2 %10
  241. $MSG %2
  242. $SET %2 "        [2]  SysOps Name              : "
  243. $CAT %2 %11
  244. $MSG %2
  245. $SET %2 "        [3]  Editor Login             : "
  246. $CAT %2 %30
  247. $MSG %2
  248. $SET %2 "        [4]  Editor Password          : "
  249. $CAT %2 %31
  250. $MSG %2
  251. $SET %2 "        [5]  BBS Type                 : "
  252. $CAT %2 %12
  253. $MSG %2
  254. $SET %2 "        [6]  Monitor Path             : "
  255. $CAT %2 %14
  256. $MSG %2
  257. $SET %2 "        [7]  Door Batch Filename      : "
  258. $CAT %2 %15
  259. $MSG %2
  260. $SET %2 "        [8]  Door Drive & Path        : "
  261. $CAT %2 %16
  262. $CAT %2 %17
  263. $MSG %2
  264. $SET %2 "        [9]  Docs Drive & Path        : "
  265. $CAT %2 %18
  266. $MSG %2
  267. $SET %2 "       [10]  Top 10 Tycoon Bulletin   : "
  268. $CAT %2 %5
  269. $MSG %2
  270. $SET %2 "       [11]  Node Count               : "
  271. $CAT %2 #10
  272. $MSG %2
  273. $SET %2 "       [12]  Node 1 Port, Drive & Path: COM"
  274. $CAT %2 #20
  275. $CAT %2 ":  -  "
  276. $CAT %2 %20
  277. $CAT %2 %25
  278. $MSG %2
  279. $SET %2 "       [13]  Node 2 Port, Drive & Path: COM"
  280. $CAT %2 #21
  281. $CAT %2 ":  -  "
  282. $CAT %2 %21
  283. $CAT %2 %26
  284. $MSG %2
  285. $SET %2 "       [14]  Node 3 Port, Drive & Path: COM"
  286. $CAT %2 #22
  287. $CAT %2 ":  -  "
  288. $CAT %2 %22
  289. $CAT %2 %27
  290. $MSG %2
  291. $SET %2 "       [15]  Node 4 Port, Drive & Path: COM"
  292. $CAT %2 #23
  293. $CAT %2 ":  -  "
  294. $CAT %2 %23
  295. $CAT %2 %28
  296. $MSG %2
  297. $MSG "  ────────────────────────────────────────────────────────────────────────────"
  298. $INP %0 "  Enter item to change, [ENTER] to build, or [Q] to quit: "
  299.  
  300. $IF %0 = "1" MENU1
  301. $IF %0 = "2" MENU2
  302. $IF %0 = "3" MENU3
  303. $IF %0 = "4" MENU4
  304. $IF %0 = "5" MENU5
  305. $IF %0 = "6" MENU6
  306. $IF %0 = "7" MENU7
  307. $IF %0 = "8" MENU8
  308. $IF %0 = "9" MENU9
  309. $IF %0 = "10" MENU10
  310. $IF %0 = "11" MENU11
  311. $IF %0 = "12" MENU12
  312. $IF %0 = "13" MENU13
  313. $IF %0 = "14" MENU14
  314. $IF %0 = "15" MENU15
  315. $IF %0 = "Q" ABORT
  316. $IF %0 = "q" ABORT
  317. $IF %0 = "" BUILD
  318.  
  319.  
  320. $MSG "  Error - Invalid selection."
  321. $:DELAY
  322. $SET #0 1
  323. $IF #0 = 25 MENU
  324. $ADD #0 1
  325. $GOTO DELAY
  326.  
  327.  
  328. $:MENU1
  329. $GOSUB BBS_NAME
  330. $GOTO MENU
  331.  
  332.  
  333. $:MENU2
  334. $GOSUB SYSOP
  335. $GOTO MENU
  336.  
  337.  
  338. $:MENU3
  339. $GOSUB LOGIN
  340. $GOTO MENU
  341.  
  342.  
  343. $:MENU4
  344. $GOSUB PASSWORD
  345. $GOTO MENU
  346.  
  347.  
  348. $:MENU5
  349. $GOSUB BBS_TYPE
  350. $GOTO MENU
  351.  
  352.  
  353. $:MENU6
  354. $GOSUB MON_PATH
  355. $GOTO MENU
  356.  
  357.  
  358. $:MENU7
  359. $GOSUB BAT_NAME
  360. $GOTO MENU
  361.  
  362.  
  363. $:MENU8
  364. $GOSUB DOORPATH
  365. $GOTO MENU
  366.  
  367.  
  368. $:MENU9
  369. $GOSUB DOCSPATH
  370. $GOTO MENU
  371.  
  372.  
  373. $:MENU10
  374. $SET %2 "  │      Top Ten Tycoons List     │"
  375. $GOSUB BUL_NAME
  376. $SET %5 %2
  377. $GOTO MENU
  378.  
  379.  
  380. $:MENU11
  381. $GOSUB NODES
  382. $GOTO MENU
  383.  
  384.  
  385. $:MENU12
  386. $SET #1 1
  387. $GOSUB BBS_PATH
  388. $SET %20 %2
  389. $SET %25 %3
  390. $SET #1 1
  391. $GOSUB BBS_COMM
  392. $GOTO MENU
  393.  
  394.  
  395. $:MENU13
  396. $SET #1 2
  397. $GOSUB BBS_PATH
  398. $SET %21 %2
  399. $SET %26 %3
  400. $SET #1 2
  401. $GOSUB BBS_COMM
  402. $GOTO MENU
  403.  
  404.  
  405. $:MENU14
  406. $SET #1 3
  407. $GOSUB BBS_PATH
  408. $SET %22 %2
  409. $SET %27 %3
  410. $SET #1 3
  411. $GOSUB BBS_COMM
  412. $GOTO MENU
  413.  
  414.  
  415. $:MENU15
  416. $SET #1 4
  417. $GOSUB BBS_PATH
  418. $SET %23 %2
  419. $SET %28 %3
  420. $SET #1 4
  421. $GOSUB BBS_COMM
  422. $GOTO MENU
  423.  
  424.  
  425.  
  426.  
  427.  
  428. ;
  429. ; ╔══════════════════════════════╗
  430. ; ║  Build Required Directories  ║
  431. ; ╚══════════════════════════════╝
  432. ;
  433. $:BUILD
  434. CLS
  435. $MSG
  436. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  437. $MSG "  │        T H E   F I C T I T I O U S   S T O C K   E X C H A N G E         │"
  438. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  439. $MSG
  440. $MSG "  Building directories..."
  441. $SET %2 %16
  442. $CAT %2 %17
  443. MAKEDIR %2
  444. $CAT %2 "\DOCS"
  445. MAKEDIR %2
  446. MAKEDIR %18
  447.  
  448.  
  449.  
  450.  
  451.  
  452. ;
  453. ; ╔═══════════════════════╗
  454. ; ║  UnZip Documentation  ║
  455. ; ╚═══════════════════════╝
  456. ;
  457. $MSG "  UnZipping documentation..."
  458. PKUNZIP -o MARKET-D.ZIP %2 *.* >NUL
  459.  
  460.  
  461.  
  462.  
  463.  
  464. ;
  465. ; ╔═══════════════════════════╗
  466. ; ║  Copy User Documentation  ║
  467. ; ╚═══════════════════════════╝
  468. ;
  469. $MSG "  Copying user documentation..."
  470. $SET %2 %16
  471. $CAT %2 %17
  472. $CAT %2 "\DOCS\MARKET.DOC"
  473. COPY %2 %18 >NUL
  474.  
  475.  
  476.  
  477.  
  478.  
  479. ;
  480. ; ╔═══════════════════════╗
  481. ; ║  UnZip Program Files  ║
  482. ; ╚═══════════════════════╝
  483. ;
  484. $MSG "  UnZipping program files..."
  485. $SET %2 %16
  486. $CAT %2 %17
  487. PKUNZIP -o MARKET-X.ZIP %2 *.* >NUL
  488.  
  489.  
  490.  
  491.  
  492.  
  493. ;
  494. ; ╔═══════════════════╗
  495. ; ║  Build NODES.BBS  ║
  496. ; ╚═══════════════════╝
  497. ;
  498. $MSG "  Building node ID files..."
  499.  
  500. $IF #12 < 3 NBBS0
  501. $IF #12 > 4 NBBS0
  502. $SET %2 %14
  503. $GOTO NBBS1
  504.  
  505. $:NBBS0
  506. $SET %2 %20
  507. $CAT %2 %25
  508.  
  509. $:NBBS1
  510. $CAT %2 "\NODES.BBS"
  511. REMOVE %2
  512. $SET %3 "COM"
  513. $CAT %3 #20
  514. $WRITE %2 %3
  515. $SET %3 "COM"
  516. $CAT %3 #21
  517. $WRITE %2 %3
  518. $SET %3 "COM"
  519. $CAT %3 #22
  520. $WRITE %2 %3
  521. $SET %3 "COM"
  522. $CAT %3 #23
  523. $WRITE %2 %3
  524. $SET %3 %16
  525. $CAT %3 %17
  526. $CAT %3 "\NODES.BBS"
  527. COPY %2 %3 >NUL
  528.  
  529. $IF #12 = 3 BATCH
  530. $IF #12 = 4 BATCH
  531. $IF #10 < 2 BATCH
  532. $SET %3 %21
  533. $CAT %3 %26
  534. $CAT %3 "\NODES.BBS"
  535. $IF %2 = %3 NBBS3
  536. COPY %2 %3 >NUL
  537.  
  538. $:NBBS3
  539. $IF #10 < 3 BATCH
  540. $SET %3 %22
  541. $CAT %3 %27
  542. $CAT %3 "\NODES.BBS"
  543. $IF %2 = %3 NBBS4
  544. COPY %2 %3 >NUL
  545.  
  546. $:NBBS4
  547. $IF #10 < 4 BATCH
  548. $SET %3 %23
  549. $CAT %3 %28
  550. $CAT %3 "\NODES.BBS"
  551. $IF %2 = %3 BATCH
  552. COPY %2 %3 >NUL
  553.  
  554.  
  555.  
  556.  
  557.  
  558. ;
  559. ; ╔═════════════════════╗
  560. ; ║  Build Batch Files  ║
  561. ; ╚═════════════════════╝
  562. ;
  563. $:BATCH
  564. $IF #12 < 3 BAT1
  565. $IF #12 > 4 BAT1
  566.  
  567. $MSG "  Copying MONITOR1.EXE file to door directory..."
  568. $SET %2 %14
  569. $CAT %2 "\MONITOR1.EXE"
  570. $SET %3 %16
  571. $CAT %3 %17
  572. $IF EXISTS %2 MON_COPY
  573.  
  574. $MSG "  WARNING - MONITOR1.EXE file not found!"
  575. $GOTO CONFIG
  576.  
  577. $:MON_COPY
  578. COPY %2 %3
  579. $GOTO CONFIG
  580.  
  581. $:BAT1
  582. $MSG "  Building door batch files..."
  583. $SET %2 %20
  584. $CAT %2 %25
  585. $CAT %2 "\"
  586. $CAT %2 %15
  587. REMOVE %2
  588. $WRITE %2 "ECHO OFF"
  589. $WRITE %2 "ECHO ┌─────────────────────────────────┐"
  590. $WRITE %2 "ECHO │  THE FICTITIOUS STOCK EXCHANGE  │"
  591. $WRITE %2 "ECHO │        BY MYCROFT SYSTEMS       │"
  592. $WRITE %2 "ECHO └─────────────────────────────────┘"
  593. $WRITE %2 %16
  594. $SET %3 "CD "
  595. $CAT %3 %17
  596. $WRITE %2 %3
  597.  
  598. $SET %3 "MARKET"
  599. $IF #12 = 1 BAT11
  600. $IF #12 = 2 BAT11
  601. $CAT %3 " 1 "
  602. $GOTO BAT12
  603. $:BAT11
  604. $CAT %3 " %1 "
  605. $:BAT12
  606. $CAT %3 %20
  607. $CAT %3 %25
  608. $CAT %3 " "
  609. $CAT %3 %13
  610. $WRITE %2 %3
  611.  
  612. $WRITE %2 %20
  613. $SET %3 "CD "
  614. $CAT %3 %25
  615. $WRITE %2 %3
  616. $WRITE %2 " "
  617.  
  618.  
  619.  
  620. $:BAT2
  621. $IF #10 < 2 CONFIG
  622. $SET %4 %21
  623. $CAT %4 %26
  624. $CAT %4 "\"
  625. $CAT %4 %15
  626. $IF %2 = %4 BAT3
  627. $SET %2 %4
  628. REMOVE %2
  629. $WRITE %2 "ECHO OFF"
  630. $WRITE %2 "ECHO ┌─────────────────────────────────┐"
  631. $WRITE %2 "ECHO │  THE FICTITIOUS STOCK EXCHANGE  │"
  632. $WRITE %2 "ECHO │        BY MYCROFT SYSTEMS       │"
  633. $WRITE %2 "ECHO └─────────────────────────────────┘"
  634. $WRITE %2 %16
  635. $SET %3 "CD "
  636. $CAT %3 %17
  637. $WRITE %2 %3
  638.  
  639. $SET %3 "MARKET"
  640. $IF #12 = 1 BAT21
  641. $IF #12 = 2 BAT21
  642. $CAT %3 " 2 "
  643. $GOTO BAT22
  644. $:BAT21
  645. $CAT %3 " %1 "
  646. $:BAT22
  647. $CAT %3 %21
  648. $CAT %3 %26
  649. $CAT %3 " "
  650. $CAT %3 %13
  651. $WRITE %2 %3
  652.  
  653. $WRITE %2 %21
  654. $SET %3 "CD "
  655. $CAT %3 %26
  656. $WRITE %2 %3
  657. $WRITE %2 " "
  658.  
  659.  
  660.  
  661. $:BAT3
  662. $IF #10 < 3 CONFIG
  663. $SET %4 %22
  664. $CAT %4 %27
  665. $CAT %4 "\"
  666. $CAT %4 %15
  667. $IF %2 = %4 BAT4
  668. $SET %2 %4
  669. REMOVE %2
  670. $WRITE %2 "ECHO OFF"
  671. $WRITE %2 "ECHO ┌─────────────────────────────────┐"
  672. $WRITE %2 "ECHO │  THE FICTITIOUS STOCK EXCHANGE  │"
  673. $WRITE %2 "ECHO │        BY MYCROFT SYSTEMS       │"
  674. $WRITE %2 "ECHO └─────────────────────────────────┘"
  675. $WRITE %2 %16
  676. $SET %3 "CD "
  677. $CAT %3 %17
  678. $WRITE %2 %3
  679.  
  680. $SET %3 "MARKET"
  681. $IF #12 = 1 BAT31
  682. $IF #12 = 2 BAT31
  683. $CAT %3 " 3 "
  684. $GOTO BAT32
  685. $:BAT31
  686. $CAT %3 " %1 "
  687. $:BAT32
  688. $CAT %3 %22
  689. $CAT %3 %27
  690. $CAT %3 " "
  691. $CAT %3 %13
  692. $WRITE %2 %3
  693.  
  694. $WRITE %2 %22
  695. $SET %3 "CD "
  696. $CAT %3 %27
  697. $WRITE %2 %3
  698. $WRITE %2 " "
  699.  
  700.  
  701.  
  702. $:BAT4
  703. $IF #10 < 4 CONFIG
  704. $SET %4 %23
  705. $CAT %4 %28
  706. $CAT %4 "\"
  707. $CAT %4 %15
  708. $IF %2 = %4 CONFIG
  709. $SET %2 %4
  710. REMOVE %2
  711. $WRITE %2 "ECHO OFF"
  712. $WRITE %2 "ECHO ┌─────────────────────────────────┐"
  713. $WRITE %2 "ECHO │  THE FICTITIOUS STOCK EXCHANGE  │"
  714. $WRITE %2 "ECHO │        BY MYCROFT SYSTEMS       │"
  715. $WRITE %2 "ECHO └─────────────────────────────────┘"
  716. $WRITE %2 %16
  717. $SET %3 "CD "
  718. $CAT %3 %17
  719. $WRITE %2 %3
  720.  
  721. $SET %3 "MARKET"
  722. $IF #12 = 1 BAT41
  723. $IF #12 = 2 BAT41
  724. $CAT %3 " 4 "
  725. $GOTO BAT42
  726. $:BAT41
  727. $CAT %3 " %1 "
  728. $:BAT42
  729. $CAT %3 %23
  730. $CAT %3 %28
  731. $CAT %3 " "
  732. $CAT %3 %13
  733. $WRITE %2 %3
  734.  
  735. $WRITE %2 %23
  736. $SET %3 "CD "
  737. $CAT %3 %28
  738. $WRITE %2 %3
  739. $WRITE %2 " "
  740.  
  741.  
  742.  
  743.  
  744.  
  745. ;
  746. ; ╔═════════════════════════════╗
  747. ; ║  Build Configuration Files  ║
  748. ; ╚═════════════════════════════╝
  749. ;
  750. $:CONFIG
  751. $MSG "  Building door configuration file..."
  752. $SET %2 %16
  753. $CAT %2 %17
  754. $CAT %2 "\MARKET.CFG"
  755. REMOVE %2
  756. $WRITE %2 %10
  757. $SET %3 %18
  758. $CAT %3 "\MARKET.DOC"
  759. $WRITE %2 %3
  760. $WRITE %2 %5
  761. $WRITE %2 %30
  762. $WRITE %2 %31
  763.  
  764.  
  765.  
  766.  
  767. ;
  768. ; ╔══════════════════════════╗
  769. ; ║  Process Initialization  ║
  770. ; ╚══════════════════════════╝
  771. ;
  772. $:INIT
  773. $SET %2 %16
  774. $CAT %2 %17
  775. $CAT %2 "\MARKET.DAT"
  776. REMOVE %2
  777. $SET %2 %16
  778. $CAT %2 %17
  779. $CAT %2 "\MARKET.PLR"
  780. REMOVE %2
  781.  
  782.  
  783.  
  784.  
  785.  
  786. ;
  787. ; ╔═══════════════════╗
  788. ; ║  Signoff Message  ║
  789. ; ╚═══════════════════╝
  790. ;
  791. CLS
  792. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  793. $MSG "  │        T H E   F I C T I T I O U S   S T O C K   E X C H A N G E         │"
  794. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  795. $MSG "    The Fictitious Stock Exchange is now installed and ready to run.  You   "
  796. $MSG "    will need to modify your door menu or whatever mechanism is used by your"
  797. $MSG "    BBS to have it recognize the new door.  Also if your BBS software needs "
  798. $MSG "    to be re-run after the door terminates then you will need to add a line "
  799. $MSG "    at the end of the batch files to do that."
  800. $MSG
  801. $MSG "    Note that version 3.00 is not compatible with previous versions and so  "
  802. $MSG "    the game has been set to restart if you are doing an update."
  803. $MSG
  804. $MSG "    I hope you that you and your users enjoy The Fictitious Stock Exchange. "
  805. $MSG "    If you have any problems please contact me at Mycroft Systems as listed "
  806. $MSG "    below.  Also please take the time to fill out the registration from and "
  807. $MSG "    mail it to me at: "
  808. $MSG "                               Mycroft Systems  "
  809. $MSG "                                P.O. Box 7672   "
  810. $MSG "                             San Jose, CA. 95150"
  811. $MSG "                                (408)927-0105   "
  812. $MSG
  813. $INP %0 "Press ENTER to finish the install/update process..."
  814.  
  815.  
  816.  
  817.  
  818. ;
  819. ; ╔══════════════════╗
  820. ; ║  All Done, Exit  ║
  821. ; ╚══════════════════╝
  822. ;
  823.  
  824. $:DONE
  825. $EXIT 0
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832. ;
  833. ; ╔════════════════════╗
  834. ; ║  Get the BBS name  ║
  835. ; ╚════════════════════╝
  836. ;
  837. $:BBS_NAME
  838. ;
  839. CLS
  840. $MSG
  841. $MSG "  ┌───────────────────────────────┐"
  842. $MSG "  │            BBS NAME           │"
  843. $MSG "  ├───────────────────────────────┤"
  844. $MSG "  │ Enter the name of your BBS as │"
  845. $MSG "  │  you wish it to show in the   │"
  846. $MSG "  │         door program.         │"
  847. $MSG "  │                               │"
  848. $MSG "  │    Example: Mycroft Systems   │"
  849. $MSG "  └───────────────────────────────┘"
  850. $INP %10 "  ══>"
  851. $RETURN
  852.  
  853.  
  854.  
  855.  
  856.  
  857. ;
  858. ; ╔══════════════════════╗
  859. ; ║  Get the SysOp name  ║
  860. ; ╚══════════════════════╝
  861. ;
  862. $:SYSOP
  863. ;
  864. CLS
  865. $MSG
  866. $MSG "  ┌───────────────────────────────┐"
  867. $MSG "  │           SYSOP NAME          │"
  868. $MSG "  ├───────────────────────────────┤"
  869. $MSG "  │ Enter the name you use as the │"
  870. $MSG "  │      SysOp of your BBS.       │"
  871. $MSG "  │                               │"
  872. $MSG "  │     Example: Mike Bayley      │"
  873. $MSG "  └───────────────────────────────┘"
  874. $INP %11 "  ══>"
  875. $RETURN
  876.  
  877.  
  878.  
  879.  
  880.  
  881. ;
  882. ; ╔═══════════════════════╗
  883. ; ║  Get the Editor name  ║
  884. ; ╚═══════════════════════╝
  885. ;
  886. $:LOGIN
  887. ;
  888. CLS
  889. $MSG
  890. $MSG "  ┌───────────────────────────────┐"
  891. $MSG "  │       EDITOR LOGIN NAME       │"
  892. $MSG "  ├───────────────────────────────┤"
  893. $MSG "  │ Enter the user login name of  │"
  894. $MSG "  │  the person you wish to have  │"
  895. $MSG "  │  access to the doors editor.  │"
  896. $MSG "  │                               │"
  897. $MSG "  │         Example: SYSOP        │"
  898. $MSG "  └───────────────────────────────┘"
  899. $INP %30 "  ══>"
  900. $RETURN
  901.  
  902.  
  903.  
  904.  
  905.  
  906. ;
  907. ; ╔═══════════════════════════╗
  908. ; ║  Get the Editor Password  ║
  909. ; ╚═══════════════════════════╝
  910. ;
  911. $:PASSWORD
  912. ;
  913. CLS
  914. $MSG
  915. $MSG "  ┌───────────────────────────────┐"
  916. $MSG "  │        EDITOR PASSWORD        │"
  917. $MSG "  ├───────────────────────────────┤"
  918. $MSG "  │  Enter the password you wish  │"
  919. $MSG "  │  to use to gain access to the │"
  920. $MSG "  │         doors editor.         │"
  921. $MSG "  │                               │"
  922. $MSG "  │       Example: Mycroft        │"
  923. $MSG "  └───────────────────────────────┘"
  924. $INP %31 "  ══>"
  925. $RETURN
  926.  
  927.  
  928.  
  929.  
  930.  
  931. ;
  932. ; ╔════════════════════╗
  933. ; ║  Get the BBS type  ║
  934. ; ╚════════════════════╝
  935. ;
  936. $:BBS_TYPE
  937. ;
  938. CLS
  939. $MSG
  940. $MSG "  ┌───────────────────────────────────┐"
  941. $MSG "  │       BBS ENVIRONMENT TYPE        │"
  942. $MSG "  ├───────────────────────────────────┤"
  943. $MSG "  │   1. RBBS 15                      │"
  944. $MSG "  │   2. RBBS 16 or RBBS 17           │"
  945. $MSG "  │   3. Bob Wescotts Door Monitor    │"
  946. $MSG "  │   4. G-Mon                        │"
  947. $MSG "  │   5. Quick BBS                    │"
  948. $MSG "  │   6. PC-Board 12.1                │"
  949. $MSG "  │   7. PC-Board 14.0                │"
  950. $MSG "  │   8. Wildcat BBS                  │"
  951. $MSG "  │   9. GAP BBS                      │"
  952. $MSG "  │  10. WWIV BBS                     │"
  953. $MSG "  │  11. Spitfire BBS (Door)          │"
  954. $MSG "  │  12. Spitfire BBS (Main menu cmd) │"
  955. $MSG "  │  13. Spitfire BBS (Msg. menu cmd) │"
  956. $MSG "  │  14. Spitfire BBS (File menu cmd) │"
  957. $MSG "  └───────────────────────────────────┘"
  958. ;
  959. $:BBS_T0
  960. ;
  961. $INP #12 "  ══>"
  962. $IF #12 < 1 BBS_TERR
  963. ;
  964. $:BBS_T1
  965. $IF #12 > 1 BBS_T2
  966. $SET %12 "RBBS 15"
  967. $SET %13 ""
  968. $RETURN
  969. ;
  970. $:BBS_T2
  971. $IF #12 > 2 BBS_T3
  972. $SET %12 "RBBS"
  973. $SET %13 "RBBS"
  974. $RETURN
  975. ;
  976. $:BBS_T3
  977. $IF #12 > 3 BBS_T4
  978. $SET %12 "Wescotts Monitor"
  979. $SET %13 ""
  980. $RETURN
  981. ;
  982. $:BBS_T4
  983. $IF #12 > 4 BBS_T5
  984. $SET %12 "G-Mon"
  985. $SET %13 ""
  986. $RETURN
  987. ;
  988. $:BBS_T5
  989. $IF #12 > 5 BBS_T6
  990. $SET %12 "Quick BBS"
  991. $SET %13 "QBBS"
  992. $RETURN
  993. ;
  994. $:BBS_T6
  995. $IF #12 > 6 BBS_T7
  996. $SET %12 "PC-Board 12.1"
  997. $SET %13 "PCBOARD"
  998. $RETURN
  999. ;
  1000. $:BBS_T7
  1001. $IF #12 > 7 BBS_T8
  1002. $SET %12 "PC-Board 14.0"
  1003. $SET %13 "PCBOARD14"
  1004. $RETURN
  1005. ;
  1006. $:BBS_T8
  1007. $IF #12 > 8 BBS_T9
  1008. $SET %12 "Wildcat BBS"
  1009. $SET %13 "WILDCAT"
  1010. $RETURN
  1011. ;
  1012. $:BBS_T9
  1013. $IF #12 > 9 BBS_T10
  1014. $SET %12 "Gap BBS"
  1015. $SET %13 "GAP"
  1016. $RETURN
  1017. ;
  1018. $:BBS_T10
  1019. $IF #12 > 10 BBS_T11
  1020. $SET %12 "WWIV BBS"
  1021. $SET %13 "WWIV"
  1022. $RETURN
  1023. ;
  1024. $:BBS_T11
  1025. $IF #12 > 11 BBS_T12
  1026. $SET %12 "Spitfire BBS (Door)"
  1027. $SET %13 "SPITFIRE"
  1028. $RETURN
  1029. ;
  1030. $:BBS_T12
  1031. $IF #12 > 12 BBS_T13
  1032. $SET %12 "Spitfire BBS (Main menu cmd)"
  1033. $SET %13 "SPITFIREK
  1034. $RETURN
  1035. ;
  1036. $:BBS_T13
  1037. $IF #12 > 13 BBS_T14
  1038. $SET %12 "Spitfire BBS (Msg. menu cmd)"
  1039. $SET %13 "SPITFIREM"
  1040. $RETURN
  1041. ;
  1042. $:BBS_T14
  1043. $IF #12 > 14 BBS_TERR
  1044. $SET %12 "Spitfire BBS (File menu cmd)"
  1045. $SET %13 "SPITFIREF"
  1046. $RETURN
  1047. ;
  1048. $:BBS_TERR
  1049. $MSG "  Error, please enter a number between 1 and 14."
  1050. $GOTO BBS_T0
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056. ;
  1057. ; ╔════════════════════════════════╗
  1058. ; ║  Get the Monitor drive & path  ║
  1059. ; ╚════════════════════════════════╝
  1060. ;
  1061. $:MON_PATH
  1062. ;
  1063. CLS
  1064. $MSG
  1065. $MSG "  ┌───────────────────────────────┐"
  1066. $MSG "  │ DOOR MONITOR DRIVE & PATHNAME │"
  1067. $MSG "  ├───────────────────────────────┤"
  1068. $MSG "  │ Enter the complete drive and  │"
  1069. $MSG "  │ pathname for the location of  │"
  1070. $MSG "  │      your monitor files.      │"
  1071. $MSG "  │                               │"
  1072. $MSG "  │    Example: C:\RBBS\G-MON     │"
  1073. $MSG "  └───────────────────────────────┘"
  1074. $INP %14 "  ══>"
  1075. $RETURN
  1076.  
  1077.  
  1078.  
  1079.  
  1080.  
  1081. ;
  1082. ; ╔══════════════════════════╗
  1083. ; ║  Get the BBS node count  ║
  1084. ; ╚══════════════════════════╝
  1085. ;
  1086. $:NODES
  1087. CLS
  1088. $MSG
  1089. $MSG "  ┌───────────────────────────────┐"
  1090. $MSG "  │      NUMBER OF BBS NODES      │"
  1091. $MSG "  ├───────────────────────────────┤"
  1092. $MSG "  │     1. System has 1 node      │"
  1093. $MSG "  │     2. System has 2 nodes     │"
  1094. $MSG "  │     3. System has 3 nodes     │"
  1095. $MSG "  │     4. System has 4 nodes     │"
  1096. $MSG "  └───────────────────────────────┘"
  1097. ;
  1098. $:NODE_0
  1099. $INP #10 "  ══>"
  1100. $IF #10 = 1 NODE_1
  1101. $IF #10 = 2 NODE_2
  1102. $IF #10 = 3 NODE_3
  1103. $IF #10 = 4 NODE_4
  1104. $GOTO NODE_ERR
  1105.  
  1106. $:NODE_1
  1107. $SET %23 ""
  1108. $SET %28 "<not in use>"
  1109. $SET #23 0
  1110.  
  1111. $:NODE_2
  1112. $SET %22 ""
  1113. $SET %27 "<not in use>"
  1114. $SET #22 0
  1115.  
  1116. $:NODE_3
  1117. $SET %21 ""
  1118. $SET %26 "<not in use>"
  1119. $SET #21 0
  1120.  
  1121. $:NODE_4
  1122. $RETURN
  1123. ;
  1124. $:NODE_ERR
  1125. $MSG "  Error, please enter a number between 1 and 4."
  1126. $GOTO NODE_0
  1127.  
  1128.  
  1129.  
  1130.  
  1131.  
  1132. ;
  1133. ; ╔════════════════════════════╗
  1134. ; ║  Get the BBS drive & path  ║
  1135. ; ╚════════════════════════════╝
  1136. ;
  1137. $:BBS_PATH
  1138. CLS
  1139. $MSG
  1140. $MSG "  ┌───────────────────────────────┐"
  1141. $MSG "  │           BBS DRIVE           │"
  1142. $MSG "  ├───────────────────────────────┤"
  1143. $SET %3 "  │            NODE #"
  1144. $CAT %3 #1
  1145. $CAT %3 "            │"
  1146. $MSG %3
  1147. $MSG "  │                               │"
  1148. $MSG "  │   1. A:     5. E:     9. I:   │"
  1149. $MSG "  │   2. B:     6. F:    10. J:   │"
  1150. $MSG "  │   3. C:     7. G:    11. K:   │"
  1151. $MSG "  │   4. D:     8. H:    12. L:   │"
  1152. $MSG "  └───────────────────────────────┘"
  1153. ;
  1154. $:BBS_P0
  1155. $INP #0 "  ══>"
  1156. $IF #0 < 1 BBS_PERR
  1157. ;
  1158. $:BBS_P1
  1159. $IF #0 > 1 BBS_P2
  1160. $SET %2 "A:"
  1161. $GOTO BBS_PTH2
  1162. ;
  1163. $:BBS_P2
  1164. $IF #0 > 2 BBS_P3
  1165. $SET %2 "B:"
  1166. $GOTO BBS_PTH2
  1167. ;
  1168. $:BBS_P3
  1169. $IF #0 > 3 BBS_P4
  1170. $SET %2 "C:"
  1171. $GOTO BBS_PTH2
  1172. ;
  1173. $:BBS_P4
  1174. $IF #0 > 4 BBS_P5
  1175. $SET %2 "D:"
  1176. $GOTO BBS_PTH2
  1177. ;
  1178. $:BBS_P5
  1179. $IF #0 > 5 BBS_P6
  1180. $SET %2 "E:"
  1181. $GOTO BBS_PTH2
  1182. ;
  1183. $:BBS_P6
  1184. $IF #0 > 6 BBS_P7
  1185. $SET %2 "F:"
  1186. $GOTO BBS_PTH2
  1187. ;
  1188. $:BBS_P7
  1189. $IF #0 > 7 BBS_P8
  1190. $SET %2 "G:"
  1191. $GOTO BBS_PTH2
  1192. ;
  1193. $:BBS_P8
  1194. $IF #0 > 8 BBS_P9
  1195. $SET %2 "H:"
  1196. $GOTO BBS_PTH2
  1197. ;
  1198. $:BBS_P9
  1199. $IF #0 > 9 BBS_P10
  1200. $SET %2 "I:"
  1201. $GOTO BBS_PTH2
  1202. ;
  1203. $:BBS_P10
  1204. $IF #0 > 10 BBS_P11
  1205. $SET %2 "J:"
  1206. $GOTO BBS_PTH2
  1207. ;
  1208. $:BBS_P11
  1209. $IF #0 > 11 BBS_P12
  1210. $SET %2 "K:"
  1211. $GOTO BBS_PTH2
  1212. ;
  1213. $:BBS_P12
  1214. $IF #0 > 12 BBS_PERR
  1215. $SET %2 "L:"
  1216. $GOTO BBS_PTH2
  1217. ;
  1218. $:BBS_PERR
  1219. $MSG "  Error, please enter a number between 1 and 12."
  1220. $GOTO BBS_P0
  1221.  
  1222.  
  1223. $:BBS_PTH2
  1224. ;
  1225. $MSG
  1226. $MSG "  ┌───────────────────────────────┐"
  1227. $MSG "  │         BBS PATHNAME          │"
  1228. $MSG "  ├───────────────────────────────┤"
  1229. $SET %3 "  │            NODE #"
  1230. $CAT %3 #1
  1231. $CAT %3 "            │"
  1232. $MSG %3
  1233. $MSG "  │                               │"
  1234. $MSG "  │ Enter the complete path where │"
  1235. $MSG "  │     your BBS software is.     │"
  1236. $MSG "  │                               │"
  1237. $MSG "  │        Example: \RBBS         │"
  1238. $MSG "  └───────────────────────────────┘"
  1239. $INP %3 "  ══>"
  1240. $RETURN
  1241.  
  1242.  
  1243.  
  1244.  
  1245.  
  1246. ;
  1247. ; ╔══════════════════════════════╗
  1248. ; ║  Get the BBS node comm port  ║
  1249. ; ╚══════════════════════════════╝
  1250. ;
  1251. $:BBS_COMM
  1252. CLS
  1253. $MSG
  1254. $MSG "  ┌───────────────────────────────┐"
  1255. $MSG "  │ BBS NODE COMM PORT ASSIGNMENT │"
  1256. $MSG "  ├───────────────────────────────┤"
  1257. $SET %3 "  │            NODE #"
  1258. $CAT %3 #1
  1259. $CAT %3 "            │"
  1260. $MSG %3
  1261. $MSG "  │                               │"
  1262. $MSG "  │         1. Uses COM1          │"
  1263. $MSG "  │         2. Uses COM2          │"
  1264. $MSG "  │         3. Uses COM3          │"
  1265. $MSG "  │         4. Uses COM4          │"
  1266. $MSG "  └───────────────────────────────┘"
  1267. ;
  1268. $:COMM_0
  1269. $INP #1 "  ══>"
  1270. $IF #1 < 1 COMM_ERR
  1271. $IF #1 > 4 COMM_ERR
  1272. $RETURN
  1273. ;
  1274. $:COMM_ERR
  1275. $MSG "  Error, please enter a number between 1 and 4."
  1276. $GOTO COMM_0
  1277.  
  1278.  
  1279.  
  1280.  
  1281.  
  1282. ;
  1283. ; ╔═════════════════════════════╗
  1284. ; ║  Get the door drive & path  ║
  1285. ; ╚═════════════════════════════╝
  1286. ;
  1287. $:DOORPATH
  1288. CLS
  1289. $MSG
  1290. $MSG "  ┌───────────────────────────────┐"
  1291. $MSG "  │          DOOR DRIVE           │"
  1292. $MSG "  ├───────────────────────────────┤"
  1293. $MSG "  │   1. A:     5. E:     9. I:   │"
  1294. $MSG "  │   2. B:     6. F:    10. J:   │"
  1295. $MSG "  │   3. C:     7. G:    11. K:   │"
  1296. $MSG "  │   4. D:     8. H:    12. L:   │"
  1297. $MSG "  └───────────────────────────────┘"
  1298. ;
  1299. $:DOR_P0
  1300. $INP #0 "  ══>"
  1301. $IF #0 < 1 DOR_PERR
  1302. ;
  1303. $:DOR_P1
  1304. $IF #0 > 1 DOR_P2
  1305. $SET %16 "A:"
  1306. $GOTO DOORPTH2
  1307. ;
  1308. $:DOR_P2
  1309. $IF #0 > 2 DOR_P3
  1310. $SET %16 "B:"
  1311. $GOTO DOORPTH2
  1312. ;
  1313. $:DOR_P3
  1314. $IF #0 > 3 DOR_P4
  1315. $SET %16 "C:"
  1316. $GOTO DOORPTH2
  1317. ;
  1318. $:DOR_P4
  1319. $IF #0 > 4 DOR_P5
  1320. $SET %16 "D:"
  1321. $GOTO DOORPTH2
  1322. ;
  1323. $:DOR_P5
  1324. $IF #0 > 5 DOR_P6
  1325. $SET %16 "E:"
  1326. $GOTO DOORPTH2
  1327. ;
  1328. $:DOR_P6
  1329. $IF #0 > 6 DOR_P7
  1330. $SET %16 "F:"
  1331. $GOTO DOORPTH2
  1332. ;
  1333. $:DOR_P7
  1334. $IF #0 > 7 DOR_P8
  1335. $SET %16 "G:"
  1336. $GOTO DOORPTH2
  1337. ;
  1338. $:DOR_P8
  1339. $IF #0 > 8 DOR_P9
  1340. $SET %16 "H:"
  1341. $GOTO DOORPTH2
  1342. ;
  1343. $:DOR_P9
  1344. $IF #0 > 9 DOR_P10
  1345. $SET %16 "I:"
  1346. $GOTO DOORPTH2
  1347. ;
  1348. $:DOR_P10
  1349. $IF #0 > 10 DOR_P11
  1350. $SET %16 "J:"
  1351. $GOTO DOORPTH2
  1352. ;
  1353. $:DOR_P11
  1354. $IF #0 > 11 DOR_P12
  1355. $SET %16 "K:"
  1356. $GOTO DOORPTH2
  1357. ;
  1358. $:DOR_P12
  1359. $IF #0 > 12 DOR_PERR
  1360. $SET %16 "L:"
  1361. $GOTO DOORPTH2
  1362. ;
  1363. $:DOR_PERR
  1364. $MSG "  Error, please enter a number between 1 and 12."
  1365. $GOTO DOR_P0
  1366.  
  1367.  
  1368. $:DOORPTH2
  1369. ;
  1370. $MSG
  1371. $MSG "  ┌───────────────────────────────┐"
  1372. $MSG "  │         DOOR PATHNAME         │"
  1373. $MSG "  ├───────────────────────────────┤"
  1374. $MSG "  │ Enter the complete path where │"
  1375. $MSG "  │    the door will be run.      │"
  1376. $MSG "  │                               │"
  1377. $MSG "  │    Example: \DOORS\MARKET     │"
  1378. $MSG "  └───────────────────────────────┘"
  1379. $INP %17 "  ══>"
  1380. $RETURN
  1381.  
  1382.  
  1383.  
  1384.  
  1385.  
  1386. ;
  1387. ; ╔═══════════════════════════════════════════╗
  1388. ; ║  Get the user documentation drive & path  ║
  1389. ; ╚═══════════════════════════════════════════╝
  1390. ;
  1391. $:DOCSPATH
  1392. ;
  1393. CLS
  1394. $MSG
  1395. $MSG "  ┌───────────────────────────────┐"
  1396. $MSG "  │USER DOCUMENTATION DRIVE & PATH│"
  1397. $MSG "  ├───────────────────────────────┤"
  1398. $MSG "  │ Enter the complete drive and  │"
  1399. $MSG "  │ pathname for the location of  │"
  1400. $MSG "  │  the downloadable doc files.  │"
  1401. $MSG "  │                               │"
  1402. $MSG "  │    Example: C:\RBBS\DOCS      │"
  1403. $MSG "  └───────────────────────────────┘"
  1404. $INP %18 "  ══>"
  1405. $RETURN
  1406.  
  1407.  
  1408.  
  1409.  
  1410.  
  1411. ;
  1412. ; ╔═══════════════════════════════╗
  1413. ; ║  Get the door batch filename  ║
  1414. ; ╚═══════════════════════════════╝
  1415. ;
  1416. $:BAT_NAME
  1417. ;
  1418. CLS
  1419. $MSG
  1420. $MSG "  ┌───────────────────────────────┐"
  1421. $MSG "  │      DOOR BATCH FILENAME      │"
  1422. $MSG "  ├───────────────────────────────┤"
  1423. $MSG "  │  Enter the name of the BATCH  │"
  1424. $MSG "  │  file you wish to use to run  │"
  1425. $MSG "  │  the door.  Do not include a  │"
  1426. $MSG "  │      drive or pathname.       │"
  1427. $MSG "  │                               │"
  1428. $MSG "  │      Example: MARKET.BAT      │"
  1429. $MSG "  └───────────────────────────────┘"
  1430. $INP %15 "  ══>"
  1431. $RETURN
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437. ;
  1438. ; ╔═══════════════════════════════════════════════╗
  1439. ; ║  Get the door bulletin drive, path & filename ║
  1440. ; ╚═══════════════════════════════════════════════╝
  1441. ;
  1442. $:BUL_NAME
  1443. ;
  1444. CLS
  1445. $MSG
  1446. $MSG "  ┌───────────────────────────────┐"
  1447. $MSG "  │         BULLETIN NAME         │"
  1448. $MSG "  ├───────────────────────────────┤"
  1449. $MSG %2
  1450. $MSG "  │                               │"
  1451. $MSG "  │Enter the complete drive, path │"
  1452. $MSG "  │and filename for this bulletin.│"
  1453. $MSG "  │                               │"
  1454. $MSG "  │   Example: C:\RBBS\BULLET10   │"
  1455. $MSG "  └───────────────────────────────┘"
  1456. $INP %2 "  ══>"
  1457. $RETURN
  1458.  
  1459.  
  1460.  
  1461.  
  1462.  
  1463.